#!/usr/bin/env perl

use strict;
use warnings;

BEGIN
{
    unshift(@INC, '.');
    require Data::Dumper;
    require LifeRay;
}

my $lr = LifeRay->new();
my @bookmarks = $lr->query('SELECT uuid_, entryId, folderId, name, url, comments FROM bookmarksentry');
print Data::Dumper->Dump([\@bookmarks]);
